pacman::p_load(dplyr, magrittr, ggplot2, ggridges)

data <- data.frame(x = rnorm(1000, 35, 20), y = rep(letters[1:20], each = 1000 / 20))


ggplot(data, aes(x = x, y = y, fill = y,group=y)) +
  geom_density_ridges2(point_shape = "|", point_size = 3, size = 0.25,
                       jittered_points = TRUE, scale = .95, rel_min_height = .01,
                       position = position_points_jitter(height = 0))



